100 REM  FIVE SCREENSAVER EFFECTS
105 REM
108 IFPEEK(789)=192THENSYS49152
110 PRINT"POKING";:FORJ=49152TOJ+403:PRINT".";:READX:C=C+X:POKEJ,X:NEXT
115 PRINT"":IF C<>52401 THEN PRINT"ERROR IN DATA!":STOP
120 INPUT"MINUTES TO WAIT (.1-18)";X:IFX<.1ORX>18THENPRINT"INVALID":GOTO120
125 X=X*60*60:Y=INT(X/256):X=X-Y*256:POKE49155,X:POKE49156,Y
130 PRINT"WHICH SCREENSAVER EFFECT TO LOAD:"
135 PRINT"1-INVERSION EFFECT
140 [153]"2-RANDOM EFFECT
145 PRINT"3-INCREMENT EFFECT
150 [153]"4-HORIZ.SCROLL EFFECT
155 PRINT"5-TERMITES!"
160 INPUTX$:X=VAL(X$):IFX<1ORX>5THENPRINT"INVALID":GOTO130
165 Y=49920:IFX>1THENFORI=1TOX-1:FORJ=0TO-1STEP0:READJ:NEXT:NEXT
170 READX:IFX>=0THENPOKEY,X:Y=Y+1:PRINT".";:GOTO170
175 SYS 49152:PRINT"[147]SCREENSAVER INSTALLED!"
180 PRINT"USE SYS 49152 TO ALTERNATELY ACTIVATE
185 [153]"AND DEACTIVATE IT"
190 [153]"POKE 49159 WITH A VALUE TO CHANGE EACH
195 PRINT"SCREENSAVER'S EFFECT
200 [153]"NEWONONON":[128]
205 :    IRQ SCREEN[148]R CALLER
210 [131] 24,144,14,180,0,0,195,23,0,0,0,36,193,199,192,78,192,173,20,3,174
215 [131] 21,3,236,16,192,208,15,173,143,192,174,144,192,120,141,20,3,142,21
220 [131] 3,88,96,141,143,192,142,144,192,173,15,192,174,16,192,120,141,20,3
225 [131] 142,21,3,88,162,0,142,149,193,142,147,193,142,148,193,142,151,193
230 [131] 96,174,151,193,240,14,16,57,169,0,141,151,193,174,152,193,154,24,144
235 [131] 45,174,141,2,208,6,166,197,224,64,240,37,162,0,142,147,193,142,148
240 [131] 193,174,149,193,240,21,186,173,14,192,157,6,1,173,13,192,157,5,1,162
245 [131] 1,142,151,193,206,149,193,76,255,255,174,149,193,208,248,238,147,193
250 [131] 208,3,238,148,193,72,56,173,147,193,237,3,192,173,148,193,237,4,192
255 [131] 104,144,223,186,142,152,193,173,12,192,72,173,11,192,72,238,149,193
260 [131] 169,34,72,72,72,72,24,144,199,165,1,72,37,248,120,133,1,160,40,185
265 [131] 2,212,153,2,0,136,16,247,160,56,185,197,212,153,197,0,136,16,247,173
270 [131] 134,214,141,134,2,173,135,214,141,135,2,173,146,214,141,146,2,173
275 [131] 165,214,141,165,2,104,133,1,88,56,169,208,170,32,77,193,56,169,220
280 [131] 162,4,32,77,193,56,169,216,170,32,77,193,173,153,193,141,0,221,169
285 [131] 255,141,151,193,208,249,24,169,208,170,32,77,193,24,169,0,162,212
290 [131] 32,77,193,24,169,216,170,32,77,193,24,169,4,133,204,162,220,32,77
295 [131] 193,173,0,221,141,153,193,108,5,192,141,117,193,142,122,193,169,3
300 [131] 141,150,193,165,1,72,72,41,248,144,5,170,104,168,176,3,168,104,170
305 [131] 169,0,141,116,193,141,121,193,120,134,1,173,255,255,132,1,141,255
310 [131] 255,238,116,193,238,121,193,208,238,238,117,193,238,122,193,206,150
315 [131] 193,16,227,104,133,1,88,96,0
320 :    INVERSI[145] EFFECT
325 [131] 169,0,133,2,169,4,133,3,165,2,24,109,7,192,133,2,144,12,230,3,165
330 [131] 3,201,8,144,4,233,4,133,3,160,0,177,2,73,128,145,2,172,8,192,234,234
335 [131] 136,208,251,240,216,0,-1
340 :    R[175]OM MESS EFFECT
345 [131] 238,32,208,206,33,208,162,0,164,162,185,0,160,157,0,216,168,185,0
350 [131] 164,157,0,217,168,185,0,168,157,0,218,168,185,0,167,157,0,219,168
355 [131] 232,208,225,169,0,133,2,169,4,133,3,165,2,24,109,7,192,133,2,144,12
360 [131] 230,3,165,3,201,8,144,4,233,4,133,3,160,0,177,2,73,128,145,2,172,7
365 [131] 192,136,208,253,240,218,0,-1
370 :    INC[143]ENT TO BLACK EFFECT
375 [131] 160,0,190,0,4,224,32,240,5,232,138,153,0,4,190,0,5,224,32,240,5,232
380 [131] 138,153,0,5,190,0,6,224,32,240,5,232,138,153,0,6,190,0,7,224,32,240
385 [131] 5,232,138,153,0,7,200,208,205,172,7,192,32,62,195,24,144,196,200,165
390 [131] 162,136,208,1,96,197,162,240,252,208,244,73,-1
395 :    SIDEWAYS SCROLL EFFECT
400 [131] 169,40,133,3,165,162,168,121,0,166,41,15,133,2,185,0,165,133,6,44
405 [131] 7,192,48,13,173,4,220,141,32,208,168,185,0,167,141,33,208,32,51,195
410 [131] 164,2,32,61,195,198,3,208,244,240,205,165,6,16,3,76,74,195,76,149
415 [131] 195,200,165,162,136,208,1,96,197,162,240,252,208,244,173,0,4,141,232
420 [131] 7,173,0,216,141,232,219,160,0,185,1,4,153,0,4,185,1,216,153,0,216
425 [131] 200,208,241,185,1,5,153,0,5,185,1,217,153,0,217,200,208,241,185,1
430 [131] 6,153,0,6,185,1,218,153,0,218,200,208,241,185,1,7,153,0,7,185,1,219
435 [131] 153,0,219,200,208,241,96,160,0,136,185,0,7,153,1,7,185,0,219,153,1
440 [131] 219,152,208,240,136,185,0,6,153,1,6,185,0,218,153,1,218,152,208,240
445 [131] 136,185,0,5,153,1,5,185,0,217,153,1,217,152,208,240,136,185,0,4,153
450 [131] 1,4,185,0,216,153,1,216,152,208,240,173,232,7,141,0,4,173,232,219
455 [131] 141,0,216,169,0,141,0,8,96,196,-1
460 :    TERMITES!
465 [131]76,16,197,165,162,173,4,220,96,192,192,192,192,192,192,192,125,110
470 [131]53,134,130,46,3,1,0,64,128,192,248,0,2,0,16,48,162,2,32,47,195,202
475 [131]224,255,208,248,76,34,195,24,169,0,133,2,141,28,195,141,29,195,141
480 [131]31,195,169,32,133,3,189,16,195,74,74,141,32,195,160,8,24,173,28,195
485 [131]109,32,195,141,28,195,173,29,195,105,0,141,29,195,136,240,3,76,75
490 [131]195,24,165,2,109,28,195,133,2,165,3,109,29,195,133,3,189,19,195,74
495 [131]74,74,141,32,195,160,200,24,165,2,109,32,195,133,2,165,3,105,0,133
500 [131]3,136,208,239,160,120,24,165,2,109,32,195,133,2,165,3,105,0,133,3
505 [131]136,208,239,24,165,2,125,19,195,133,2,165,3,105,0,133,3,173,32,195
510 [131]10,10,10,141,32,195,56,165,2,237,32,195,133,2,165,3,233,0,133,3,24
515 [131]189,16,195,125,16,195,141,30,195,173,29,195,105,0,141,31,195,56,173
520 [131]30,195,237,28,195,141,30,195,173,31,195,237,29,195,141,31,195,173
525 [131]30,195,141,32,195,201,0,208,8,169,192,141,33,195,76,26,196,201,2,208
530 [131]8,169,48,141,33,195,76,26,196,201,4,208,8,169,12,141,33,195,76,26
535 [131]196,169,3,141,33,195,234,32,0,197,234,45,33,195,201,0,208,67,189,25
540 [131]195,172,32,195,192,0,240,5,74,136,76,44,196,141,32,195,32,2,197,109
545 [131]32,195,145,2,189,22,195,201,0,208,8,169,3,157,22,195,76,163,196,201
550 [131]1,208,6,222,22,195,76,201,196,201,2,208,6,222,22,195,76,181,196,222
555 [131]22,195,76,219,196,169,255,56,237,33,195,141,32,195,32,2,197,45,32
560 [131]195,145,2,189,22,195,201,0,208,6,254,22,195,76,181,196,201,1,208,6
565 [131]254,22,195,76,219,196,201,2,208,6,254,22,195,76,163,196,169,0,157
570 [131]22,195,76,201,196,56,189,16,195,233,1,144,4,157,16,195,96,169,159
575 [131]157,16,195,96,24,189,16,195,105,1,201,160,240,4,157,16,195,96,169
580 [131]0,157,16,195,96,56,189,19,195,233,1,144,4,157,19,195,96,169,199,157
585 [131]19,195,96,24,189,19,195,105,1,201,200,240,4,157,19,195,96,169,0,157
590 [131]19,195,96,255,192,192,192,192,192,192,192,192,192,192,192,192,192
595 [131]192,192,192,160,0,76,192,197,31,9,32,133,3,177,2,24,96,192,192,160
600 [131]0,132,2,169,224,133,3,162,32,169,0,145,2,200,208,251,230,3,202,208
605 [131]246,32,3,195,141,134,2,169,147,32,210,255,173,17,208,9,32,141,17,208
610 [131]173,24,208,41,255,9,56,141,24,208,173,22,208,9,16,141,22,208,173,0
615 [131]221,41,252,9,0,141,0,221,32,3,195,141,32,208,32,3,195,141,33,208,162
620 [131]2,169,136,32,160,197,24,105,20,157,16,195,169,187,32,160,197,24,105
625 [131]20,157,19,195,169,3,32,160,197,157,22,195,202,16,223,162,0,32,3,195
630 [131]157,0,207,157,0,206,157,0,205,157,0,204,202,208,241,76,34,195,244
635 [131]192,192,192,192,133,2,169,0,133,3,32,3,195,24,101,3,197,2,176,244
640 [131]96,192,192,192,192,192,192,192,192,192,192,192,192,192,192,192,165
645 [131]3,41,31,9,224,133,3,165,1,133,4,41,248,120,133,1,177,2,72,165,4,133
650 [131]1,88,104,24,96,192,192,-1